  setdisplay(240,320,32,1):paper(0xFFFFFF):ink(0):pen(0):cls
for a=0 to 3
  for b=0 to 3
     prints("orbit("+str$(a)+","+str$(b)+")="+str$(orbit(a,b)))
   next
 next
waitkey